home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / AMUG / PROGRAMING_7 / LogoMation 1.1.1 / LogoMation 1.1.1 ﾄ / Documentation ﾄ / code tidbits / three rectangles, ⁄w functions / three rectangles, _w functions next >
Text File  |  1994-01-08  |  283b  |  14 lines
  1. // square - a function to draw a square
  2. Function square(size)
  3.     Up
  4.     Forward 30
  5.     Down
  6.     Repeat 4
  7.         Forward size
  8.         Right 90
  9.     
  10. // now draw three squares
  11. square(5)  // draw a  5 x  5 square
  12. square(10) // draw a 10 x 10 square
  13. square(20) // draw a 20 x 20 square
  14.